home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #7 / utv2n7s2.d64 / neutron man (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  4KB  |  91 lines
  1. 1 rem neutron.boot*jc hilty*7/88
  2. 2 :
  3. 3 : rem the following line disables uptime (everything returned to system)
  4. 4 :
  5. 5 sys65418:sys65412:sys65409:poke55,0:poke56,160:clr:sys58451
  6. 6 :
  7. 7 : rem save the fastboot flag
  8. 8 poke12278,peek(1023):remifpeek(12278)=251thensys52480
  9. 9 :
  10. 12 poke53281,0:poke53280,0:s=54272
  11. 14 poke147,0:sys57812"neutron.font",8,1:sys62631
  12. 15 poke53272,31:print"[155]"tab(17)"uptime"
  13. 16 printtab(7)"the commodore disk monthly":printtab(16)"presents":print
  14. 18 printtab(6)"a james c. hilty production":printtab(18)"of an"
  15. 20 printtab(3)"interactive epic arcade comic book"
  16. 21 print:printtab(4)"published by softdisk publishing"
  17. 23 sys57812"writer",8,1:sys62631
  18. 25 sys57812"speech.pic",8,1:sys62631
  19. 26 print"[147]":poke53265,59:poke53272,120:poke56576,peek(56576)and254
  20. 30 sys16384,2,24576,14336,23552
  21. 31 co=1:ro=24:a$="press fire":gosub150
  22. 32 co=18:ro=2:a$="hi, everyone!":gosub150
  23. 34 co=16:ro=3:a$="i'm neutron-man!":gosub150
  24. 35 co=15:ro=4:a$="i hope you are enjoying":gosub150
  25. 36 co=15:ro=5:a$="this month's uptime!":gosub150
  26. 37 co=16:ro=6:a$="everything is quiet and":gosub150
  27. 38 co=17:ro=7:a$="peaceful right now,":gosub150
  28. 40 wait56320,16,16:gosub200
  29. 42 co=18:ro=2:a$="but a short  ":gosub150
  30. 44 co=16:ro=3:a$="while back the  ":gosub150
  31. 45 co=15:ro=4:a$="earth was in great     ":gosub150
  32. 46 co=15:ro=5:a$="danger from an attack ":gosub150
  33. 47 co=16:ro=6:a$="from outer space!! yes,":gosub150
  34. 48 co=17:ro=7:a$="i remember it well.":gosub150
  35. 50 wait56320,16,16:gosub200
  36. 52 co=18:ro=2:a$="an experiment":gosub150
  37. 54 co=16:ro=3:a$="involving rocket":gosub150
  38. 55 co=15:ro=4:a$="packs which would      ":gosub150
  39. 56 co=15:ro=5:a$="enable a man to fly   ":gosub150
  40. 57 co=16:ro=6:a$="was well under way. the":gosub150
  41. 58 co=17:ro=7:a$="project also dealt ":gosub150
  42. 60 wait56320,16,16:gosub200
  43. 62 co=18:ro=2:a$="with a laser ":gosub150
  44. 64 co=16:ro=3:a$="that could be   ":gosub150
  45. 65 co=15:ro=4:a$="fired from a head      ":gosub150
  46. 66 co=15:ro=5:a$="band. when the attack ":gosub150
  47. 67 co=16:ro=6:a$="from space began, i was":gosub150
  48. 68 co=17:ro=7:a$="chosen to defend   ":gosub150
  49. 70 wait56320,16,16:gosub200
  50. 72 co=18:ro=2:a$="earth using  ":gosub150
  51. 74 co=16:ro=3:a$="this new equip- ":gosub150
  52. 75 co=15:ro=4:a$="ment. thus began my    ":gosub150
  53. 76 co=15:ro=5:a$="saga as neutron-man!! ":gosub150
  54. 77 co=16:ro=6:a$="using a joystick in    ":gosub150
  55. 78 co=17:ro=7:a$="port 2, you will   ":gosub150
  56. 80 wait56320,16,16:gosub200
  57. 82 co=18:ro=2:a$="guide me as  ":gosub150
  58. 84 co=16:ro=3:a$="we relive my    ":gosub150
  59. 85 co=15:ro=4:a$="greatest adventure!    ":gosub150
  60. 86 co=15:ro=5:a$="we will circle the    ":gosub150
  61. 87 co=16:ro=6:a$="statue of liberty,     ":gosub150
  62. 88 co=17:ro=7:a$="fly into outer     ":gosub150
  63. 90 wait56320,16,16:gosub200
  64. 92 co=18:ro=2:a$="space, and   ":gosub150
  65. 94 co=16:ro=3:a$="finally fight   ":gosub150
  66. 95 co=15:ro=4:a$="the climatic battle in ":gosub150
  67. 96 co=15:ro=5:a$="new york harbor!      ":gosub150
  68. 97 co=16:ro=6:a$="please leave the disk  ":gosub150
  69. 98 co=17:ro=7:a$="in the drive as    ":gosub150
  70. 100 wait56320,16,16:gosub200
  71. 102 co=18:ro=2:a$="different    ":gosub150
  72. 104 co=16:ro=3:a$="files will be   ":gosub150
  73. 105 co=15:ro=4:a$="loaded into the game.  ":gosub150
  74. 106 co=15:ro=5:a$="good luck in your     ":gosub150
  75. 107 co=16:ro=6:a$="defense of earth,      ":gosub150
  76. 108 co=17:ro=7:a$="neutron-man!!      ":gosub150
  77. 110 wait56320,16,16
  78. 112 poke53265,27:poke53272,31:poke56576,peek(56576)or1
  79. 115 print"[147][154]can a man really fly....[144]"
  80. 116 print"[144]load"chr$(34)"neutron.intro"chr$(34)",8";
  81. 118 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13
  82. 119 new
  83. 150 sys16439,1,co,ro,a$:return
  84. 200 co=18:ro=2:a$="             ":gosub150
  85. 202 co=16:ro=3:a$="                ":gosub150
  86. 203 co=15:ro=4:a$="                       ":gosub150
  87. 204 co=15:ro=5:a$="                      ":gosub150
  88. 205 co=16:ro=6:a$="                       ":gosub150
  89. 206 co=17:ro=7:a$="                   ":gosub150
  90. 208 return
  91.